home *** CD-ROM | disk | FTP | other *** search
/ MacWarehouse Macintosh Games / MacWarehouse Macintosh Games.iso / AMBER demo / ROXY / ROXY.dxr / 00015.ls < prev    next >
Encoding:
Text File  |  1996-10-18  |  605 b   |  18 lines
  1. on exitFrame
  2.   global oPuppeteer, oStoryteller, gScanFinish, domainIsReady
  3.   repeat with i = 1 to 48
  4.     puppetSprite(i, 1)
  5.   end repeat
  6.   set scanStatus to getState(oStoryteller, #PKscanStatus)
  7.   if getPos([#Wait1min, #Wait2min, #Wait3min, #Wait4min, #Wait5min], scanStatus) then
  8.     set minutesRemaining to getPos([#Wait1min, #Wait2min, #Wait3min, #Wait4min, #Wait5min], scanStatus)
  9.     set gScanFinish to the ticks + (minutesRemaining * 3600)
  10.     put "new gScanFinish = " & gScanFinish
  11.   end if
  12.   initInventory()
  13.   set domainIsReady to 1
  14.   restoreSounds(#fadeIn)
  15.   closePatchFile()
  16.   go("bigLoop")
  17. end
  18.